Imports System.Data
Imports System
Imports System.Collections.Generic
Partial Class Controls_wctlLstListarProyecto01
    Inherits System.Web.UI.UserControl

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Session("editar") = "nuevo"
        Response.Redirect("wfrmDetalleProyecto1.aspx")
    End Sub

    Protected Sub Export_Click1(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            Dim lLst As List(Of Object) = GridSolicitud.GetSelectedFieldValues("ID")
            Dim proyecto As String = lLst.Item(0).ToString
            Session("editar") = "editar"
            Response.Redirect("wfrmDetalleProyecto1.aspx")
        Catch ex As Exception
            lblMensaje.Text = Err.Description
            lblMensaje.Text = "Debe Seleccionar un proyecto a editar"
        End Try

    End Sub


    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Button2.Attributes.Add("OnClick", "javascript:{confirm('Se cancelaran todas las visitas programadas para el proyecto')}")
    End Sub
End Class
